home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00008_Script_just name copy < prev    next >
Text File  |  1995-11-13  |  448b  |  23 lines
  1. on justNames
  2.   
  3.   set cn = 1
  4.   set lineCount = the number of lines in field(cn)
  5.   
  6.   repeat with i = 1 to lineCount
  7.     put item 1 of line i of field(cn) into line i of field (cn+1)
  8.   end repeat
  9.   
  10.   
  11.   --exit
  12.   
  13.   set cn = 3
  14.   set lineCount = the number of lines in field(cn)
  15.   
  16.   repeat with i = 1 to lineCount
  17.     put item 1 of line i of field(cn) into line i of field (cn+1)
  18.   end repeat
  19.   
  20.   put "done."
  21.   
  22. end justNames
  23.